Những câu hỏi liên quan
Trần Thanh Triều
Xem chi tiết
Nguyễn Lê Phước Thịnh
4 tháng 5 2021 lúc 13:39

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do 

  if a[i]>0 then write(a[i]:4);

writeln;

for i:=1 to n do

  if a[i]<0 then write(a[i]:4);

readln;

end.

Bình luận (0)
Trần Đăng Trọng
Xem chi tiết
Nguyễn Lê Phước Thịnh
9 tháng 3 2023 lúc 14:26

#include <bits/stdc++.h>

using namespace std;

int main()

{

int n,x,s=1,i;

cin>>n;

for (int i=1; i<=n; i++)

{

cin>>x;

if (x<0) s=s*x;

}

cout<<s;

return 0;

}

Bình luận (0)
Dan Ngothi
Xem chi tiết
Nguyễn Lê Phước Thịnh
28 tháng 4 2021 lúc 19:01

uses crt;

var a:array[1..100]of integer;

i,n:integer;

begin

clrscr;

write('Nhap n='); readln(n);

for i:=1 to n do 

  begin

write('A[',i,']='); readln(a[i]);

end;

for i:=1 to n do

  if a[i] mod 2<>0 then write(a[i]:4);

readln;

end.

Bình luận (0)
Bùi Anh Tuấn
28 tháng 4 2021 lúc 19:41

Bình luận (0)
Ngọc hà
Xem chi tiết
Nhung
23 tháng 5 2022 lúc 22:38

program trungbinh;

uses crt;

var n,i: integer;

      s:real;

      A: array[1..1000] of integer;

begin

clrscr;

write('Nhap do dai day: '); readln(n);

writeln('Nhap gia tri cua day: ');

S:=0;

for i:=1 to n do

begin

 write('A[',i,']= ');

readln(A[i]);

S:=S+A[i];

end;

S:=S/n;

write('Trung binh cua cac so cua day do la: ',S);

readln;

end.

Bình luận (0)
Đỗ vantinh
Xem chi tiết
Kiều Vũ Linh
9 tháng 5 2023 lúc 16:15

Em cho thêm điều kiện loại Khá của em là gì?

Bình luận (0)
le thi minh phuong
Xem chi tiết
Nguyễn Lê Phước Thịnh
21 tháng 1 2021 lúc 20:57

uses crt;

var n,i,d,x,j,tam:longint;

a:array[1..11]of integer;

st:string;

begin

clrscr;

repeat

write('Nhap n='); readln(n);

until n>0;

str(n,st);

d:=length(st);

for i:=1 to d do 

  begin

val(st[i],a[i],x);

end;

for i:=1 to d-1 do 

  for j:=i+1 to d do 

if a[i]<a[j] then 

begin

tam:=a[i];

a[i]:=a[j];

a[j]:=tam;

end;

for i:=1 to d do 

  write(a[i]);

readln;

end.

Bình luận (0)
Trần Long
Xem chi tiết
Xyz OLM
7 tháng 2 2023 lúc 12:03

 

Bình luận (0)
Bùi Trần Nghĩa Hưng
Xem chi tiết
Nguyễn Lê Phước Thịnh
30 tháng 10 2021 lúc 0:17

Câu 1: 

#include <bits/stdc++.h>

using namespace std;

double a,b,c;

int main()

{

cin>>a>>b>>c;

cout<<fixed<<setprecision(2)<<(a+b+c)/3;

return 0;

}

Bình luận (0)
Anh Thư
Xem chi tiết
Nguyễn Lê Phước Thịnh
10 tháng 4 2021 lúc 20:20

2:

uses crt;

var st:string;

d,i,dem1,dem2:integer;

begin

clrscr;

write('Nhap xau:'); readln(st);

d:=length(st);

dem1:=0;

dem2:=0;

for i:=1 to d do

  begin

if st[i] in ['0'..'9'] then inc(dem1);

if (st[i] in ['a'..'z']) or (st[i] in ['A'..'Z']) then inc(dem2);

end;

writeln('So ki tu la chu so la: ',dem1);

writeln('So ki tu la chu cai la: ',dem2);

for i:=1 to d do 

  if st[i] in ['0'..'9'] then delete(st,i,1);

writeln('Xau sau khi xoa cac chu so la: ',st);

readln;

end. 

Bình luận (0)